home *** CD-ROM | disk | FTP | other *** search
/ Aminet 20 / Aminet 20 (1997)(GTI - Schatztruhe)[!][Aug 1997].iso / Aminet / hard / drivr / ScanTrax.lha / ScanTrax / Install.bat < prev    next >
DOS Batch File  |  1997-06-02  |  8KB  |  303 lines
  1. ; ScanTrax Install-Script $VER: ScanTrax installer-script V1.1
  2.  
  3. (complete 0)
  4. (set st-version "1.2")
  5. (set st-date "Jun 01 1997")
  6. (set os-version (/ (getversion) 65536))
  7. (user 1)
  8. (set germ (= @language "deutsch"))
  9. (set engl (= germ 0))
  10.  
  11.  
  12. (if germ (set loctxt "\n\nOS-30 oder höher nicht gefunden!\n\n\nInstallation wird abgebrochen!"))
  13. (if engl    (set loctxt "\n\nOS-30 or higher not found!\n\nInstallation will be abort!"))
  14. (if (< os-version 39) (abort loctxt) )
  15.  
  16. (if germ (set loctxt (cat   "\nWillkommen bei der Installation von \n\n\"ScanTrax V"
  17.                      st-version " ("st-date ")\"!\n\n"
  18.                     "Dieses Programm ist ShareWare.\n\n"
  19.                     "© Copyright 1997 Klaus Krause")))
  20. (if engl (set loctxt (cat   "\nWelcome to the installation of \n\n\"ScanTrax V"
  21.                      st-version " ("st-date ")\"!\n\n"
  22.                     "This Program is ShareWare.\n\n"
  23.                     "© Copyright 1997 Klaus Krause")))
  24. (message loctxt)
  25.  
  26. (welcome)
  27. (set userlevel @user-level)
  28.  
  29. (user 1)
  30. (set root
  31.     (askdir
  32.         (if germ (prompt "Bitte das Verzeichnis wählen, in dem das \"ScanTrax-Verzeichnis\" erstellt werden soll."))
  33.         (if engl (prompt "Please choose the directory, where to be create the \"ScanTrax-directory\"."))
  34.         (help @askdir-help)
  35.         (default "")
  36.         (disk)
  37.     )
  38. )
  39.  
  40. (set path (tackon root "ScanTrax"))
  41. (makedir path
  42.     (infos)
  43. )
  44. (set @default-dest path)
  45.  
  46. (user userlevel)
  47. ;backup old possible-usermodified icon
  48. (if (exists (tackon @default-dest "ScanTrax.info"))
  49.     (
  50.         (set oldicon 1)
  51.         (copyfiles
  52.             (source (tackon @default-dest "ScanTrax.info"))
  53.             (dest "T:")
  54.         )
  55.     )
  56.     (set oldicon 0)
  57. )
  58. ;backup old possible-usermodified ScanMode.prefs
  59. (if (exists (tackon @default-dest "ScanMode.prefs"))
  60.     (
  61.         (set oldprefs 1)
  62.         (copyfiles
  63.             (source (tackon @default-dest "ScanMode.prefs"))
  64.             (dest "T:")
  65.         )
  66.     )
  67.     (set oldprefs 0)
  68. )
  69. (copyfiles
  70.     (if germ (prompt "Kopiere nun die Programmdateien."))
  71.     (if engl (prompt "Now copying the program-files."))
  72.     (help @copyfiles-help)
  73.     (source "main")
  74.     (dest path)
  75.     (all)
  76.     (confirm)
  77. )
  78. (copyfiles
  79.     (if germ (prompt "Kopiere nun die Dokumentation."))
  80.     (if engl (prompt "Now copying the document."))
  81.     (help @copyfiles-help)
  82.     (source "")
  83.     (dest path)
  84.     (files)
  85.     (pattern "#?.guide")
  86.     (confirm)
  87. )
  88. (copyfiles
  89.     (if germ (prompt "Kopiere nun die Icons."))
  90.     (if engl (prompt "Now copying the icons."))
  91.     (help @copyfiles-help)
  92.     (source "icons")
  93.     (dest root)
  94.     (all)
  95.     (confirm)
  96. )
  97. ;restore old icon
  98. (if oldicon
  99.     (
  100.         (copyfiles
  101.             (source "T:ScanTrax.info")
  102.             (dest @default-dest)
  103.         )
  104.         (delete ("T:ScanTrax.info"))
  105.     )
  106. )
  107. ;restore old ScanMode.prefs
  108. (if oldprefs
  109.     (
  110.         (copyfiles
  111.             (source "T:ScanMode.prefs")
  112.             (dest @default-dest)
  113.         )
  114.         (delete ("T:ScanMode.prefs"))
  115.     )
  116. )
  117. (complete 25)
  118.  
  119.  
  120. (user 1)
  121. (if germ (set loctxt "ScanTrax kann eigene Mauszeiger für den Vorschau-Rahmen verwenden. Sie haben hier folgende Auswahl:"))
  122. (if engl (set loctxt "ScanTrax has the ability to use his own Mousepointer for the preview-frame. You have the following choice:"))
  123. (if (exists (tackon @default-dest "Pointer_AD.pre"))
  124.     (set pointers
  125.         (askchoice
  126.             (prompt loctxt)
  127.             (help @askchoice-help)
  128.             (if germ (choices "HiRes Zeiger (für A1200,A4000)" "LoRes Zeiger" "Keine Zeiger (vorhandene löschen)" "Alte Zeiger behalten!"))
  129.             (if engl (choices "HiRes Pointer (for A1200,A4000)" "LoRes Pointer" "No Pointer" "Hold old pointer!"))
  130.             (default 3)
  131.         )
  132.     )
  133.     (set pointers
  134.         (askchoice
  135.             (prompt loctxt)
  136.             (help @askchoice-help)
  137.             (if germ (choices "HiRes Zeiger (für A1200,A4000)" "LoRes Zeiger" "Keine Zeiger"))
  138.             (if engl (choices "HiRes pointer (for A1200,A4000)" "LoRes Pointer" "No Pointer"))
  139.             (default 0)
  140.         )
  141.     )
  142. )
  143. (user userlevel)
  144.  
  145. (select pointers
  146.     (copyfiles
  147.         (if germ (prompt "Kopiere nun die HiRes-Mauszeiger."))
  148.         (if engl (prompt "Now copying the HiRes-Mousepointer."))
  149.         (help @copyfiles-help)
  150.         (source "pointerhires")
  151.         (dest path)
  152.         (pattern "#?")
  153.         (files)
  154.         (infos)
  155.         (confirm)
  156.     )
  157.  
  158.     (copyfiles
  159.         (if germ (prompt "Kopiere nun die LoRes-Mauszeiger."))
  160.         (if engl (prompt "Now copying the LoRes-Mousepointer."))
  161.         (help @copyfiles-help)
  162.         (source "pointerlores")
  163.         (dest path)
  164.         (pattern "#?")
  165.         (files)
  166.         (infos)
  167.         (confirm)
  168.     )
  169.  
  170.     (delete (tackon @default-dest "Pointer#?")
  171.         (if germ (prompt "Ihre alten Mauszeiger werden nun gelöscht!\n\nWenn Sie diese behalten möchten überspringen Sie diesen Teil!"))
  172.         (if engl (prompt "Your old Mousepointer are to be delete!\n\nIf you hold these, skip this part!"))
  173.         (if germ (help "Das Programm wird ihre alten Mauszeiger verwenden wenn Sie diese nicht aus dem Programm-Verzeichnis entfernen!"))
  174.         (if engl (help "The program will use your old Mousepointer if you don't delete them from the program-directory!"))
  175.         (confirm)
  176.     )
  177.  
  178.     (set pointers 0)
  179. )
  180.  
  181. (complete 50)
  182. (set icon (tackon @default-dest "ScanTrax"))
  183. (user 1)
  184. (set text
  185.     (askstring
  186.         (if germ (prompt "Geben Sie nun den SCSI-Treibernamen an."))
  187.         (if engl (prompt "Now enter the SCSI-Drivername."))
  188.         (help @askstring-help)
  189.         (default "scsi.device")
  190.     )
  191. )
  192. (tooltype
  193.     (dest icon)
  194.     (settooltype "SCSI_DEVICE" text)
  195. )
  196.  
  197. (set text
  198.     (select
  199.         (askchoice
  200.             (if germ (prompt "Bitte wählen Sie die SCSI-ID ihres Scanners."))
  201.             (if engl (prompt "Please choose the SCSI-ID of your Scanner."))
  202.             (help @askchoice-help)
  203.             (choices    0 1 2 3 4 5 6)
  204.         )
  205.         "0" "1" "2" "3" "4" "5" "6")
  206. )
  207. (tooltype
  208.     (dest icon)
  209.     (settooltype "SCSI_UNIT" text)
  210. )
  211. (user userlevel)
  212.  
  213. (tooltype
  214.     (dest icon)
  215.     (settooltype "SCSI_LUN" "0")
  216. )
  217. (tooltype
  218.     (dest icon)
  219.     (settooltype "SCSI_BOARD" "0")
  220. )
  221.  
  222.  
  223. (set text
  224.     (select
  225.         (askchoice
  226.             (if germ (prompt "Wählen Sie nun die Größe des Arbeitspuffers.\n"))
  227.             (if engl (prompt "Now choose the workbuffer size.\n"))
  228.             (if germ (help "Soll der Puffer noch größer werden, ändern Sie später die Programm-ToolTypes von Hand."))
  229.             (if engl (help "To make a greater buffer, change the program-tooltypes later by hand."))
  230.             (choices    "1 MB" "2 MB" "3 MB")
  231.         )
  232.         "1048576" "2097152" "3145728")
  233. )
  234. (tooltype
  235.     (dest icon)
  236.     (settooltype "BUFFER_SIZE" text)
  237. )
  238.  
  239. (complete 75)
  240. (set temppath
  241.     (askdir
  242.         (if germ (prompt "Wo sollen temporäre Vorschau-Dateien abgelegt werden?"))
  243.         (if engl (prompt "Where should temporary preview-files be stored?"))
  244.         (if germ (help "Vorschau-Dateien haben in der Regel eine Größe bis ca. 3 MegaByte."))
  245.         (if engl (help "Preview-files normally have a size of approx. 3 MegaByte."))
  246.         (default "PROGDIR:")
  247.         (disk)
  248.     )
  249. )
  250. (tooltype
  251.     (dest icon)
  252.     (settooltype "TEMPDIR_PREVIEW" temppath)
  253. )
  254.  
  255. (user 1)
  256. (set temppath
  257.     (askdir
  258.         (if germ (prompt "Wo sollen temporäre Bild-Dateien abgelegt werden?"))
  259.         (if engl (prompt "Where should temporary picture-files be stored?"))
  260.         (if germ (help "Bild-Dateien können in ihrer Größe mehre 10-MegaByte groß werden.\nDiese sollten daher auf Festplatte gespeichert werden."))
  261.         (if engl (help "Picture-files can become several 10-MegaByte big at their size.\nTherefor these should be stored on Harddisk."))
  262.         (default "PROGDIR:")
  263.         (disk)
  264.     )
  265. )
  266. (tooltype
  267.     (dest icon)
  268.     (settooltype "TEMPDIR_CONVERT" temppath)
  269. )
  270.  
  271. (set text
  272.     (select
  273.         (askchoice
  274.             (if germ (prompt "Verwenden Sie einen ScanJet 5p?"))
  275.             (if engl (prompt "Do you use a ScanJet 5p?"))
  276.             (help @askchoice-help)
  277.             (if germ (choices    "JA" "NEIN"))
  278.             (if engl (choices    "YES" "NO"))
  279.         )
  280.         "SCANJET_5P" "(SCANJET_5P)"
  281.     )
  282. )
  283. (tooltype
  284.     (dest icon)
  285.     (settooltype text "")
  286. )
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293. (user userlevel)
  294.  
  295. (copylib
  296.     (prompt "Kopiere nun die Library \"gtlayout.library\".")
  297.     (help @copy-lib)
  298.     (confirm)
  299.     (source "libs/gtlayout.library")
  300.     (dest "LIBS:")
  301. )
  302. (complete 100)
  303.